home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
EGAVGA.SWG
/
0104_25 & 50 Line mode in ASM.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-05-25
|
402b
|
29 lines
{
SG> ok.. how do you switch from 50 line mode to 25 line mode in assembly,
SG> and vice versa? I've tried many ways, which crash every now and then...
}
To 25 lines:
Uses crt;
begin
textmode(co80); {co80=3}
end.
To 50 lines:
procedure vga50;
assembler;
asm
mov ax,1202h
mov bl,30h
int 10h
mov ax,3
int 10h
mov ax,1112h
mov bl,0
int 10h
end;
begin
vga50
end.